home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs18.d81 / flicnvrt.2 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  96 lines
  1. 10 POKE53281,0:POKE53280,0
  2. 15 POKE55,0:POKE56,60:CLR
  3. 20 POKE53272,23
  4. 30 DIMF$(75),B$(75):NU$=CHR$(0)
  5. 40 PRINT"[147][158]      [198][204][201] [195]ONVERTER - [214]ERSION 2.0"
  6. 50 PRINT"  [156][194]Y [210]OSS [203]INARD  ([209][204]INK: [211]KUL[204]EADER)"
  7. 60 PRINT"     [208]RESS [211][208][193][195][197] TO READ DIRECTORY"
  8. 70 GETZ$:IFZ$=""THEN70
  9. 80 IFZ$=" "THEN100
  10. 90 GOTO70
  11. 100 PRINT"            [210]EADING...."
  12. 110 OPEN3,8,0,"$0:[129]*,GG*":POKE781,3:SYS65478:GETA$,A$
  13. 120 GETA$,A$:IFA$=""THEN160
  14. 130 GETA$,B$:B$(N)=STR$(ASC(A$+NU$)+ASC(B$+NU$)*256)
  15. 140 GETA$:IFA$=""THENN=N+1:GOTO120
  16. 150 F$(N)=F$(N)+A$:GOTO140
  17. 160 CLOSE3:SYS65484
  18. 170 PRINT"[147][158]      [198][204][201] [195]ONVERTER - [214]ERSION 2.0"
  19. 180 PRINT"[155][196][201][211][203]:[152]"MID$(F$(0),2)
  20. 190 PRINT
  21. 200 C=N-2
  22. 210 IFC>15THEN330
  23. 220 S=1:E=C
  24. 230 FORI=1TOC:IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)=MID$(F$(I),2)
  25. 240 NEXTI
  26. 250 FORI=97TO111:PRINT""CHR$(I)".":NEXTI
  27. 260 PRINT""
  28. 270 FORI=STOE
  29. 280 IFMID$(F$(I),3,1)<>CHR$(34)THENF$(I)="                        "
  30. 290 PRINT"[159]"F$(I)
  31. 300 NEXTI
  32. 310 PRINT""
  33. 320 GOTO340
  34. 330 S=1:E=15:GOTO230
  35. 340 PRINT"[153][211]ELECT [208]ICTURE ([193]-[207]) OR HIT (+) FOR"
  36. 350 PRINT"NEXT PAGE, (-) FOR PREVIOUS PAGE,"
  37. 360 PRINT"[211][208][193][195][197] FOR NEW DISK, OR ([209]) TO [209]UIT"
  38. 370 GETZ$:IFZ$=""THEN370
  39. 380 IFZ$="+"THEN440
  40. 390 IFZ$="-"THEN470
  41. 400 IFZ$=" "THENRUN
  42. 410 IFZ$="Q"THENPRINT"[147][159][210][213][206] TO [210]ESTART":GOTO840
  43. 420 IFASC(Z$)<65ORASC(Z$)>79THEN370
  44. 430 GOTO490
  45. 440 IFS+15>CTHEN370
  46. 450 S=S+15:E=E+15
  47. 460 PRINT"":GOTO270
  48. 470 IFS-15<1THENS=1:E=15:PRINT"":GOTO270
  49. 480 S=S-15:E=E-15:PRINT"":GOTO270
  50. 490 X$="":V=ASC(Z$):V=V-64
  51. 500 SN=(S-1)+V:IFSN>CTHEN370
  52. 510 PRINT"[147][154][211]ELECTED:[158]"F$(SN)
  53. 520 PRINT"[159][201]S THIS CORRECT? [217]/[206]"
  54. 530 GETZ$:IFZ$=""THEN530
  55. 540 IFZ$="Y"THEN560
  56. 550 GOTO170
  57. 560 P=4
  58. 570 Y$=MID$(F$(SN),P,1)
  59. 580 IFY$=CHR$(34)THEN600
  60. 590 X$=X$+Y$:P=P+1:GOTO570
  61. 600 IFMID$(X$,1,1)=CHR$(129)THEN635
  62. 605 PRINT"[204]OADING [208]ICTURE..."
  63. 610 SYS 4229,X$,8,0,36864
  64. 620 SYS 4656
  65. 630 GOTO650
  66. 635 PRINT"[204]OADING [208]ICTURE..."
  67. 640 SYS 4229,X$,8,0,24576
  68. 650 REM **MANIPULATE BITMAP**
  69. 655 PRINT"[156][208]ROCESSING [208]ICTURE..."
  70. 660 FORI=0TO24:X=(I*40)+32576
  71. 670 POKEX,0:POKEX+1,0:POKEX+2,0:NEXTI
  72. 680 FORI=0TO24:X=(I*40)+33576
  73. 690 POKEX,0:POKEX+1,0:POKEX+2,0:NEXTI
  74. 700 FORI=0TO24
  75. 710 K=(I*320)+24576
  76. 720 FORJ=0TO23
  77. 730 POKEK+J,0
  78. 740 NEXTJ
  79. 750 NEXTI
  80. 760 SYS 4302
  81. 765 IFPEEK(34576)<>0THEN767
  82. 766 GOTO775
  83. 767 PRINT"[212]HIS PICTURE'S BACKGROUND IS NOT [194][204][193][195][203]"
  84. 768 PRINT"[195]ONTINUE PROCESS? [217]/[206]"
  85. 769 GETZ$:IFZ$=""THEN769
  86. 770 IFZ$="Y"THEN775
  87. 771 IFZ$="N"THEN170
  88. 772 GOTO769
  89. 775 INPUT"[154][211]AVE AS:  FLI.[157][157][157][157][157][157]";S$
  90. 780 PRINT"[153][201]NSERT [196]EST. [196]ISK & [208]RESS A [203]EY"
  91. 790 GETZ$:IFZ$=""THEN790
  92. 800 SYS 4260,S$,8,0,15360,32575
  93. 810 PRINT"[158][193]NOTHER? [217]/[206]"
  94. 820 GETZ$:IFZ$=""THEN820
  95. 830 IFZ$="Y"THENRUN
  96.